﻿'
' Boogaloo® - http://www.mindfly.com
' Copyright (c) 2008
' by Mindfly, Inc.
'
' Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated 
' documentation files (the "Software"), to deal in the Software without restriction, including without limitation 
' the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and 
' to permit persons to whom the Software is furnished to do so, subject to the following conditions:
'
' The above copyright notice and this permission notice shall be included in all copies or substantial portions 
' of the Software.
'
' THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES,
' INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
' DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
' SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
' SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
' WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
' THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

Imports System.IO

Imports Boogaloo.Base
Imports Boogaloo.Core.BLL
Imports Boogaloo.Core.UI

Namespace UI.Webpages


    Partial Public Class template_discovery
        Inherits System.Web.UI.Page

        Protected Overrides Sub OnPreInit(ByVal e As EventArgs)
            MyBase.OnPreInit(e)

            Dim master_template_id As Integer = CType(Request.QueryString("master"), Integer)

            If master_template_id > 0 Then Me.MasterPageFile = MasterTemplate.GetMasterTemplate(master_template_id).master_virtual_path

        End Sub

        Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load

            If Me.Master IsNot Nothing Then


                Dim ctls As List(Of ContentPlaceHolder) = Reflection.ContentPlaceHolderList(Me.Master)
                Dim i As Integer = 0
                Response.Write(String.Format("<ContentPlaceHolderList MasterPageFile=""{0}"">", Me.MasterPageFile))
                For i = 0 To ctls.Count - 1
                    Response.Write(String.Format("<ContentPlaceHolder id=""{0}""/>", ctls(i).ID))
                Next
                Response.Write("</ContentPlaceHolderList>")
            Else
                Response.Write("<Error Message=""MasterTemplate could not be found."" />")
            End If
            Response.End()

        End Sub

    End Class

End Namespace